RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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-1984 248: VAX-11 BLi 
ars 1 93:68:38 DISKSVMSMA 
MODULE aline ( ENT = Bag + 
LISS32 C, ADDRESSING_MODE (EXTERNAL = _LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVES J 


BEGIN 


1 
leueenanenteeanentneneneneneeeetertenerntrtntentinesentnneenennentenennnnents 
if 

i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED 

iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE 
is ONLY IN ACCORDANCE WITH THE TERM 

i# INCLUSION OF THE ABOVE COP(RIGHT NOTICE. TH 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHER ADE AVAILABLE TO ANY 
‘® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


& 
tr 
® 
® 
t 
® 
® 
® 
* 
® 
ie TRANSFERRED. + 
* 
® 
* 
® 
® 
® 
® 
® 
* 
® 


MAY BE USED AND COPIED 
LICENSE AND WITH THE 
Abe OR ANY OTHER 


3939 393 3 3 SSS BOOS OOO 


=OODNA MNES WN — OOWODNOUE WIN OOONOUS wr 


'® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
if AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
ix CORPORATION. 

ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


pepe pep wlolololelolololololololelelolololojloleo) 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 


MITIPIPINPIPININID) 2 2 SS SS 


SSeS Rose 
SOWNOVE WN $ O OONAUESWN SH OODNOUES WN OOODNOUSWN— 


oocoe 


WAIWAIPOPOPONOPOPOPoNoNPD 


'® 
ESSE SESS STEEP TTT Pec TTT ceric iii iri tie i titi iti iti iiiit ii iit 
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a a at 9 IO 
° 


COOoooooooooo OOoooooo 
Sssss Sssss See eee eee EES SSS 33333333 


i i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

% ABSTRACT: Processes .CENTER, .RIGHT, .LEFT and .INDENT commands. 
3 ENVIRONMENT: Transportable 

i ! AUTHOR: R.W. Friday CREATION DATE: June, 1978 


yoas600 Revision History 15-Se0-1984 #3: 38: if DL EKSVMSHAS TERS CRONOF Fe RcaALINE. BLI; 4 ae 2 aie} 


H rt 41 1 SSBTTL ‘Revision History’ 

i; 43 4g | | MODIFIED BY: 

: 45 44 1 | 008 REROO008 Ron Randall 06-Jun-1983 

3 ¢$ $2 1 Centering is now done between left and right text margins. 
> 48 23 1! 007 KFA00007 Alden 16-Mar-1983 

3 4 rt] 1 PUSH/POP.. SCA now witty to dsr. 

: i 50 1! 006 KFA00006 n Alden 07-Mar-1983 

3 ¢ 0051 1: Global edit of alt “aodules. Updated module names, idents, 
.°- = $08 1! copyright dates. Changed require files to BLISS library. 
ae at 
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= 
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X-11 $-32 V4.0-742 
Module Level Declarations SK$V mh TER: CRUNOFF.SRCJALINE. BLI; Pqee 33 
XSBTTL "Module Level Declarations’ 


i INCLUDE FILES: 


SII 
wt 


Se Se Se Se Se Be Se Se Se Se Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Fe Se Ge Se Ge Se Se Ge Se Se eee Fe Se Ge Se ee Ge Se Se Geese e« 


ee ee ee 


ARAVLSSSLEALANLSSSVEAR 


oo 
@ 


—OOOonNO 


LIBRARY 'NXPORT:XPORT'; 
UIRE "REQ:RNODEF '; 


DSRPLUS XTHEN 
ARY ‘REQ:DPLLIB'; 


ARY *REQ:DSRLIB'; 


' XPORT Libra 
! RUNOFF veriont definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 


et oe ab Wd nt st st 


WAAA MAIR IPINININPININPININIDS 2 9 OO OS S| “DOCSTOC OOCOOCOOOOWOOwO" 
AAU OOOO NES UID O ODNOAUNES WIN (OOO NAUFS WN" O OONOULS FV 


—Ooron" © 


EQUATED SYMBOLS: 
EXTERNAL LITERAL 
' 


rintes : UNSIGNED (8); 


OWN STORAGE: 


pp_sca : $h_r_sca_block; ! Used in PUSH_SCA, POP_SCA macros 
| EXTERNAL REFERENCES: 


EXTERNAL 


tsf 

ttable 
EXTERNAL LITERAL 

r ° 


rnfcnf, 
rnfinm: 


EXTERNAL ROUTINE 


rskips, 
scant; 


: COUNTED. 


tsf-de 


we deat tty Line 
acter string expected not found: ‘<directive>’’ 


or 
legal number value: directive>' 


sz 
ez 
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vo4~600 Module Level Declarations 122808- 1382 93:08:38 DISKSVMSMASTER:CRUNOFF.SRCJALINE.BLI:1> (4) 
GLOBAL ROUTINE aline (handler_code) : NOVALUE = 


'e 


i FUNCTIONAL DESCRIPTION: 
Processes .CENTER, .RIGHT, .LEFT and . INDENT commands. 
FORMAL PARAMETERS: 


handler_code = Indicates which command is to be processed. 
IMPLICIT INPUTS: 

numprm = Contains a number, as picked up by GETNUM. 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


‘ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 
hold_tab_count, ! Tab count preserved here. 


text width, ! Available text width. 
sca_Rold : VECTOR Csca_sizel; ! SCA preserved here. 


] 
ALL these commands accept a number as a parameter. 


if NOT -Num_result 
THEN | 


Ignore the command if the number was bad. 
RETURN; 

text_width = .sca_rm - .sca_\m; 

SELECT .handler_code OF 
SET 


SNS SSNS AA AA AAA AA MII BP BP PPP PEP 


MEN O OONOU EWN 9 OD NOU EWN 0 OODNOUS WN OCONOUS 


Chcenter) : 
Validate number given in .CENTER command 
BEGIN 


PPA AUIVIVIVIVIN ES & BEEP EEE 


te WN —O OCONOUEW “OC VONOUS WN OOM VMIFWN—OOOBNOUESWN "OVD ONOUSWNO 


' 
} Process signed number. 


co 


iF .mum_sign NEQ 0 
THEN 
num_value = .num_value + .sca_rm 


BeBe Se Se Se Ge Se Ge Se Ge Ge Ge Se Ge Ge Se Ge Fe Ge Ge Ge Fe Ge Ge SH Ge FH Se Se Ge Ge Se SF Ss Ss Ge Se Ge Ge SF Ge Ss Se Fe SFSs ee Se Sse Sees Se Se Se tseese 
a a et at at ak at tk at at ot ot = 9 I SS SS 3 Ss Ss Ss SS SS Sh SY SS SS YS YS SY 2 YS 2s SS Ss 2s Ls SS es 


ooo 
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; Process unsigned number. 
ELSE 


IF  .nmum length EQL 0 
THEN | 


Apply default text width. 
num_value = .sca_rm; 


= 
Oo 
ote 


i Can't center to the left of 0 or beyond the 
maximum right margin Limit. 


iF (.num_value LEQ 0) OR (.num_value GTR 150) 
THEN 


erma (rnfinm, false); 
| Fix up parameter so text gets centered anyway. 
hum. value = .sca_rm; 


tt ad ad od ed nd ed ed m9 DOODODOOOOOOOOODO 
wise 


SOON NEW 0 OONO UE WIN 9 ODNOA ME WIN OOO NOAU EWR OC OONOU FW" OVDO~no 


1 
Adjust final value to account for Later math. 


WN — SO OONOULWN —OOONOUL WN OO®W 


num_value = .num_value + .sca_Lm; 
ag RIM EQL 0) AND (.num_length NEQ 0) 
num_value = .num_value = .sca_lm; 
END; 
Char ight) : 
& GIN 
i Validate number given on .RIGHT command. 
Always handle number as an adjustment to the right margin. 


ee ee ee ee ed ed ed ed wd 
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A. AANA AAA NAA AAAI WIAA AAW AAA AAAI AION 


num_value = .sca_rm - .num_value; 
IF_ (.mnum_value LSS 0) OR (.num_value GTR 150) 
THEN | 


ee 


i Can't back up to the left of 0 or adjust 
beyond the maximum right margin Limit. 


rs 


BEGIN 
erma (rnfinm, false); 
Fix up parameter so text goes as far right as allowed. 


SoOooooccococococoooooocooooooooooooooooooOoOOOO OOO OOOO OOO OOOO OOo 
WRRAAE SLU NWI III FE WWW BB BB BENIN 


We & 


num_value = .sca_rm; 
END; 
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END; 
Ch_center, h right) : 
BEGIN 


NOUS 


i Both .CENTER and .RIGHT can have a ';' or a comment after the 
number, or the text can be on the next Line. 


rskips (ira); ! Skip spaces after the number. 
IF (.khar EQL %C°';') 


MIFSWN—ODONOUS 


3") OR ' Just a semi-colon?? 
(.flgt com. flag. flag enabled] AND ! A comment?? 


SNS SSS SAP A AAA AAO OUMIMIMIVIVIVIVIU 


3 0 ; 
; ; ; 
; 4 i : 
; 4 4 (,khar EQL -flgt Ccom_flag, flag_character])) 3 
3 $3 5 THEN | : 
: 340 3 i User said .CENTER/.RIGHT nnn; ; 
3 re 8 ! OR »CENTER/RIGHT nnn! : 
: rk 0 4 BEGIN ; 
3 2446 1 4 endcmt (); x" ! Skip characters, stopping when : 
3 re : ; ? ! a ';" or RINTES is encountered. : 
: 24 0374 4 IF .khar NEQ rintes ; 
3 re 8 5 ? THEN : 
: 250 08 $ 4 i Scan terminated on a ';', which indicates that : 
: 251 8 4 ! the text follows on the same Line. Skip the ';' 3 
: 26 44 2 and verify that there is something there. ; 
: 254 38 BEGIN ; 
3 3 386 kens (); ! Skip the ';° : 
; 37 38 : Fy ctner EQL rintes ; 
F 9 Bg é BEGIN ; 
3 261 BB 6 i a's" followed by end-of-record is a user error. F 
3 o¢ 89 6 ! Since a ';' functions Like an end-of-record, what 3 
3; 26 0390 6 ! the user has done is give the command an empty record 3 
; 264 8 91 6 ' to be .CENTERed or .RIGHTed. The error message warns 3 
3 265 38 6 ! him of this. Then, rocessin merges with the normal 3 
3 $8 93 6 ' flow. The result will be that when SCANT gets called 3 
; 26 94 6 } i will return a null string, and all the comman ; 
; re 95 6 will do is generate a blank line in the output file. : 
: 0 38 g erma (rnfcnf, false): : 
; 4 a8 6 END : 
; 4 4 ; END ; 
3; 276 401 3 
3; 275 § & END 3 
3 g ri Z ELSE : 
: 27 5 IF .khar EQL rintes ; 
3 7 4 THEN : 
; 280 4 ! 3 


05 


2 II IOOO 
w US -SSSVOOR UN SOM None ww —OOe Ne 
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Page 7 
RCJALINE.BLI:1> (4) 


User said .CENTER/.RIGHT nnn<CR><LF> 
BEGIN 
Text is on the next record. 
EXTERNAL ROUTINE 
clh; 


cth (clh_read_input); 
kens (); 
END 

ELSE | 
' Illegal character after the number. 
Returning lets DOCM issue the error message. 


RETURN; 
{ 
' at this point it has been ascertained that the .CENTER 


! or .RIGHT command is syntatically correct. 
Also, the start of the text argument has been located. 


Preserve SCA used for normal text processing. 
push_sca; ! Save special SCA save bits. 


INCR I FROM 0 TO (sca_size -_1) DO 
sca_hold C.1) = .sca C.1); 


Set up SCA so SCANT preserves white space, and there 
is lots of room so that a new Line doesn't get started 
: unless the user makes an error. 


sca_fill = false; 
sca_justify = false; 
sca_lm = 0: 

$calrm = 50; 


i Preserve tab count; temporarily set it to zero 
; so that tabs get replaced by spaces. 


hold ta efoynt = “Stable Ccl_index); 

ttable CEl_index) = 0; 

rskips (ira); ' Skip leading spaces and tabs. 
scant (); ! Scan one input Line. 


Trailing ppaces are dropp - unless there is at least 
one underlined space in the sequence. 

Sca_wrd_cpend is not equal to RINTES iff the Last character 
has not yet been * e part of the word that was nyerrupted 
by ‘hr end of the Line occurring; this can happen iff 

: sing poeces; tees did not force the end of word processing 
o take p 


ace, i.e., there were no trailing spaces/tabs. 
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See SCANT to see how spaces/tabs get handled. 
if .sca_wrd_cpend EQL rintes 
THEN 


4.0-742 Page 8 
UNOFF .SRCJALINE.BLI; (4) 


UW 

~Oco 

a 

OOo 
OONAOW 


BEGIN 
Text is too long even before adjustment. 


‘G2 00 Co CD 
COnNO 


3 


erml (rnfcjl); 


i Fix up tsf_ext_hl, However, the entire Line 
will still get printed. 

tsf_ext_hl = 0; 

END; 


4 

40 4 

4) 46 

ag a3 

4 470 IF .sca_wrd_lst_und EQL 0 

44 471 THEN 

45 ti6 sca_wrd_lst_sp = 0; 

re 47 

4 474 ! 

48 475 ! The call on ENDWRD is made here, rather than letting 
49 tf8 ! OUTNJ do it. The reason it's done here is so that 
50 47 ! Tsf_ext_hl gets updated, so that the length of the text 
2) rh can be used. 

a 480 endwrd (false, false, false); 

a? . 

33 tt } Check to see that the text retrieved is not too long. 
58 485 IF .tsflext_hl GTR .text_width 

59 & THEN 

60 4 

61 4 

o¢ 4 

6 4 

64 

65 

66 

67 

8 
69 

70 

71 

7 


END; 
Ch_center] : 
BEGIN 


7 


t 
Compute number of spaces needed to center the Line. 


tst adjust = (.num_value - .tsf_ext_hl) / 2; 


Ch_right) : 
8 GIN 


SSSsSFSsSs3ss les esse 
Pele) MEW OOO AUS wt— 


RAI WIN WII AI IPI IAI IOI HI BBB BBB IWIN 


i Compute number of spaces needed to push the Line the 
specified amount to the right. 


tsf_adjust = .num_value - .tsf_ext_hl; 
END; 


Ch_center, h right) : 
BEGIN 


PUPP DV SPV PUPS SSIS STS SII ES ES 


SOOSOOSCOOOCOOOOOOOOOoOoOoO Oo 
Ooo SPELES 


—OOONOUE WN Oo 


RORG a at es es teas es 


IF .tsf_adjust LSS 0 
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95 THEN 
BEGIN 


eur 


It's not possible to adjust the Line. 


0000 
Ooo 


erml (rnfcjl); 


By setting tsf adjust to zero, the Lin 


& 
go out against the left edge of the page. 


Pe oe ot ot ot 
oCoCO 
=—3 


SS eae on betbabamene ae oO 


tst adjust = 0; 


3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
END; 
! If, after going through all the above, it turns 
i out to be the case that no fext was picked up, 
4 


= 


WWWNIAWIWINWWNimononronorornorno791g9d 


skip a blank Line, unconditionally. 


etsf_int_hl EQL 0 
guskip (1); 


eh Ore we ee ee ee 


F 
HEN 
outnj 0; ! Force out Line of text. 
Restore tab count and SCA to previous status. 

ttable Ccl_index] = .hold_tab_count; 


i) 
When restoring SCA note that case rules ‘'play through'’. 


INCR I FROM sca_case_size TO (sca_size - 1) DO 
sca C.J] = Vsca_fold C.1); 


p_sca; ! Restore the special SCA bits. 
sca_sect_empty = false; s. 
RETORN; 


here's something in this section. 


Ch_left, h_indent] : 
EGIN 


WR OOO VNAVE WN 8 ODNO UE WIN (OOD NOU EW OOODNOu 


PPEDPEDPAAAAA II BPP LLL 


ways 


@ ; ecified indentation is juss rememb 
will be picked up by FCIMR 
xt Line has been picke 


num_length NEQ 0 


qred. 
when the first character for the 


440 d up. 


x=" 
m 
ze 


BEGIN ! A number was supplied. 
sca_indent = .num_value; 


IN ! A number was not supplied. 
aca, indent = .pdt_indent; ! Use paragraph indentation 


SOOCOOOOOOCOOOS COSCO OOOOOCOO OOOO OO OOOO OO OOOO OOOO OOOO OOOO OOOO 


De Se Se Be Be Se Se Se Ge Se Be Ge Ge Se Se Ge Ge Se Ge Ge Se Ge FH Ge Ge FF Ge Fe SH Se Se Ge BF Se SF SF Ss Ge SF Ss Se Ge SSF SESs Se Se Sse Se Se SeSsSseSetee 
PT tt ot ot ot ot ot MURMUR 
FH eee ee eee eee eee ea aah ah ahah ah ad ad ad ad ead ead eal a) al eal al eal eal eal eal Oa eal eal Oe) 
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3; «6 9 END; 
3 t2g 0 
; t2e 1 TES; 
: 456 j END; ! End of ALINE 
.TITLE ALINE 
- IDENT Nye 000\ 
.PSECT $OWNS$,NOEXE,2 
00000 PP_SCA: .BLKB 48 
.EXTRN RINTES, FLGT, GCA 
: XTRN IRA, KHAR, NUMPRM 
.EXTRN PDT, SCA, TSF, TTABL 
XTRN RNF CAL. RNFCNE, RNFINM 
-EXTRN ENDCMT, ENDWRD, ERMA 
SEXTRN ERML, GUSKIP, OUTNJ 
SEXTRN RSKIPS. Scant. CLH 
.PSECT $CODE$,NOWRT,2 
OFFC 9900 .ENTRY ALINE Save R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11 = 0237 
5B 006 8F 9A 000 MOVZBL #RINTES : 
SA 9900000 G EF 9€ 00006 MOVAB Tor RIO ; 
59 00 G EF 9€ 0000D MOVAB KHAR, RO 3 
38 00 990006 EF 9E 00014 MOVAB IRA+{2, RB ; 
2 00 9006 EF 9E 0001 MOVAB NUMPRM+4, R7 : 
: 0000000' EF 9€ 000 MOVAB PP SC ; 
5 00000006 EF 9 000 MOVAB Sima sps RS ; 
5E FE cE 4 0030 MOVAB 84(SP5 ; 
01 | ae F 0035 BLBS PRM, is” + 0269 
4 BR8 9 RET 3 
50 00 85 09 003A 1$: MOVL.  a@SCA+120, RO : 0276 
54 30 FC )0OBS CC 0055 SUBL3. a@SCA+116 RO, » TEXT. WIDTH ; 
5 04 AC DO 0004 MOVL §HANDLER_CODE : 0278 
0c 53 D1 00047 CMPL R3, #127 : 0281 
45 12 0004A BNEQ ; 
04 a7? 05 0004C TSTL | NUMPRM+8 : 0290 
5 13 0004F BEQL ; 
67 0 cd 00051 ADDL2 RO, NUMPRM+4 + 0292 
: 1 24 BRB ; 
08 A? OD § 2s: TSTL § NUMPRM+12 : 0298 
03 12 0005 BNEQ ; 
? Q D 6 38 MOVL RO, NUMPRM+4 ; 0303 
0 67 D E 3$: MOVL § NUMPRM+4, RO : 0309 
Q 1 0 } BLEG 4$ ; 
00000096 ~=s BF ; p ; CPL RO. #150 ; 
7E D4 8 C 4$ CLRL =(SP : 0312 
00000000% BF DD $F PUSHL  #RNFINM ; 
000000006 _ EF F CALLS #2, ERMA ; 
67 00 BS D 7B OVL asfarte0, NUMPRM+4 ; 0 16 
67 Fc.) OBS CC 7F 5$ ADDL2 @SCA+116. NUMPRM+4 : ge 
06 aA? OD 83 TL NUMPRM+ > 0324 
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67 


00000080 
00 


00000096 


000000006 


00000080 


000000006 


000000006 
000000006 


006000006 


000000006 


Module Level Declarations 


nn © 
a oo 


000000006 
00 


mn 
= 


000000006 


a Ben] 
cooo 


000000006 


as Dee 
coco 


Oo 
= 


FPDOOMOPSOO OCVMVOOVWAS SDOOVNOH LOOM HUN O F VOM COON "OA AVUUIDWOro 


COCO WON PU EP MIM 10000009 0 WD C909 OO SIN MOM ODO WWIO WUT MMWOONNOWME SO 


"OWS > Oo—-OCW an 


WwARRARMMMOCIVOEPOOOOWWrrr>?r r OOOO 


ROS OD ON LV DW OOWH "9 FW FW MD FS MOUWIONW 


PM S FUNDS FW? DS EN AMK NO PS SM S EMIS DP OW OD FS WW O00 9 FU DOW — UWI 
tt at mt BS OQOOOOO™ 


900-2 0-9 "90-9 - 99-900 0-2 09 9 1 OM 9 9 NOW" 9 9 O N00 |] 90 ]|9 0 -O No — 


7 
e 
e 


vm 


6$: 


7$: 


9$: 


p- 
p- 


10$: 


118: 


12$: 


138: 


14$: 


1 
1 


38 


é 43:4 


6$ 
NUMPRM+12 
Bg CA. NUMPRM+4 
RR #176 
NUMPRM+4, @SCA+120, NUMPRM+4 
NUMPRM+4, RO 
RO, #150 
$ 


= (SP) 
#RNE INM 


#2, ERMA 
astasiz0, NUMPRM+4 
R3, #1 


R3, #176 


#0, ENDCMT 
» R11 


Dao —w a on 


A+4, KHAR 
RA+ 


» KHAR 
IRA+12 
A+4, KHAR 
+4 


Pee Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Se Ge Fs Ge Fe Ge Fe Ge Fe Ge Ge Se Ge Ge Ge Se Se Be Se Ge Fe Be Se Se Be Se Fe Se Ge Se Se Se Se Be Be Se Se Be Se Se Se 


: VAX-11 Bliss-32 V4.0-74 
BI DL EKSVMGHASTERSCHUNOFE “SRCJALINEBLIG} 7" (a) 


Page 
SBLIs1" 


TER: CRUNOFF ..SRCJALINE 


ss-32 V4.0-742 


Li 
MAS 


8 
MS 


Module Level Declarations 


vO4~600 


o) 
~ 
> 4 
o 
oe 


PSPSPS HS HS HS HS HS FS HS HS HS HS ES ES HES SES TESTS SS HS FES SSR ESSE SHER HOES 


— 
2 _ 
> Oo 
So = 
=) ~ 
Moo srouoor mm ‘ - oO 
TORK CUNICUIMmIMm trot ao ce wv 
+7e+7+7¢e7t4t4¢e¢e44 <x =x 
<<< <a<aaddaceaeaeaeat 2 _ — s . 
WVVUVOVVUVYUUYUYUYU lL t a wv w_T 
MMAMMNMNMNMMMMMMM OC oa —~ tA + 
eeepeecegeegceegces = No za zo = 
aaaaaqaaaaaaaa et -oO _- 7 ca a 
aaaaaaaaaaaa aw =x - ad aw~ a 
or < ” ez a x ss = 
esses ee eeeeeesess We ws ae a ww i 2 
Os Ouoowouooy wouoowrsr “<2 + z= -— —_ z wo 2 Oo 
SOOO 3 RK OUCINMM T T * ©O0C-r@G+~-~7?e MEO CO ao +Hzo ww SO ~ on re So 
Neer Se Se Se SS Se eK OM See OO eS 2ZQes Peace — See Ce — en 
-+7+7e+7+te ++ + + + + + _ e7e+7e e3 2 MM Mena = Va ee ~Ze -2 So 
+<q <a aqdeedeetaeaeeet Ww ada balaear ae + + +0aAa oS & =) =) =] = 
ZOVVOVVUVVYUVOVYUN  QNOLVOMN <= + <6 H2Y wMEWMSZ we Mus + Bust HF WHu~o 
ZTMMNNMWMMNWWWNNNWW CHKVVWVKH KKK C—- OVD VO Vy SMSO LK— YY MONS OM KH OY MUP OMOM 
—~VVSBSSSSBSBSBBB- “NABBSBBBe eH BBV Ve WI 1 BRK BBE ys Ce TB eae wr 


w @ Quon ” IW" we Lal 
a 8 I I IE I IS IS U9 I OS ZT I I I I I UO I IO 
ve>>>>>>>>>>>>2 rer tpt et thy pete ft ptt tet fF et Pt tet Set Ford 
WwWOODOKKKOOOOCO0O0SO j00 jj Jj00 wae ZZ] II IKOE IVD ILOUE ZO aces Zwztweowo 
S@IFETSTTSTSTFTTSTFFSFVS LVVVETFZVO VV OF DVVGVVZTV@MA VEVvvuM=IEVOVCMIZYVvOVOA@OE+-wD 
a cr tof aes Tad cad A 
~o ~ co o o = ~N 
- - - - ~N N ™N 
VWI OO DMOM 2 TO On CO Ve WP WTP WIN ZLVOWNOO ae  OCOr-<O pt ed A | 
FTINANAOOORRA PS DDDOOOO <4 ee DOM VBC OOCOWWWuE -——— 


: sh se et eh seh seh se eh se el seth se sent se se sel se seat se sen seth, meth, see gene eth seal eet meth get ee seal cell seh ce eh meth eth seh. ee dh cael DD a ad ad od ad ad ad yd ad ad ad aD 
SSSSSS SSS SSS SSeS S888 8 SSS S38 83888333S3S3333SSSssssss 
COOOOOCOOOOOOOOOOOOOSSSSOSOSSSOSOSOSOSSOSOSOSSOSOOSOOOOOSOOSOOSOOOOOOOOOO 
r-COOOCOOOOOCOCOOTF OMS TT LOST & OOK UMS OS DOK NO DOST KVP. KVM Me Me - OW 
SOooOHGHGHOOGOOGHOGHSG4 60 O00 uu O- Or OF. O44 CO O4 OOOK— OVUOBK OVO K— Oe MAB 


DWNAAACUAUAUAIUAUUAUINOOO &. EES &. be. te CO OF INT UN LP LOM i — LOMO LOCUM LOMUMIMI® LOM 
SOB OOBBNS BOBO LOOSE GOL BOG INOGGILONOGENGNOD OS 


oS 
< So 
oo oo 
VOT DVOTIODVLOTOD Du Owvwoooew ow wv Tr oS w w wr a) 
WuuunOO0o0Oeren — DMHuwuCoodu <x< a a co So oS So So N 
o oo oo oS So 
Oo oo o oOo So i=] 
oS oo oS 
oS oo oS 
So oo [=] 
Oo oo o 
WOWOOOOOOOO0OODO CO we uu@ wow “uO VY ORnruw ORV & So 
Odddddddedaetaet wm aw ww Wwnn wn OS MOMD MOO @® w 
uw 
ve) 
pu Te) i] o 
TOVOTDVOTS OU o oo So So oe So 
oo So f=] 
oo So So f=] So 
oo [=] =] oS [=] 
oo So =] oS [=] 
oo So So i=] [=] 
oo So o o So 
~N -oO oS 
o wet <x 
cs) f°) 
~N ™N 


7 
ALIN 1.56 -1984 23:48: VAX=11 Bliss-32 V4.0-742 Page 13 
vo4~500 Module Level Declarations 1228 8=198E $3508: 38 DISKSVMSMASTER: CRUNOFF . SRCJALINE.BLI:1° (4) 
000000006 8F DD 0023A PUSHL #RNFCJL 3 0527 : 
000000006 FF | FB 40 CALLS #1, ERML : : 
0 AD 4 MOVL Ist RO : ; 
28 AO D4 CO24A CLRL =: 40 (RO) : 0532 : 
A D5 9024 238: TSTL Ist + 054 : 
9 ‘¢ NEQ 5 a 
1 0D PUSHL #1 3 0542 : 
999 9006 EF 1 FB CALLS #1, GUSKIP : : 
0000006 EF F 24$: CALLS #0, OUTNJ : 0544 : 
00000006 FF ; p 6 mOVL H D_TAB_COUNT, TTABLE+4 : 34 : 
88 AS4 6E40 D 25$:  MOVL  SCA-HOLD[JJ, SCACI) ; 0554 ; 
F2 : 0000005F BF F 5 AOBLEQ $567 as be ; ; 
EC a 66 D 7A MOVL  PP_SCA, @SCA+100 : 
F B> 4 Ab D fF MOVL  PPSCA+4, aSCA+104 : 
FA iB 8 Ad D 8 MOVL  PPTSCA+8, aSCA+108 3 
FB BS C AB OD 83 MOVL “SCA+12, a@SCAt+112 ; 
FC BS 10 Ab D 9 § MOVL PP7SCA+16, ascar!1é : 
00 85 14 AB D MOVL PPZSCA+20, @SCA+1 : 
04 B85 18 A6 dO 0029 MOVL PPTSCA+24, aSCA+124 : 
08 85 1¢ A6 D 9¢ MOVL PPTSCA+ g. ascatl : ; 
0c 85 A6 D Al MOVL “SCA+32, @SCA+1 : 
10 85 4 Ad D Ab MOVL PPTSCA+ 6. aSCA+136 : 
14 85 8 Ab DO 00 MOVL P~SCA+40, @SCA+140 : 
18 «B85 C Ag DO 0028 MOVL  PP7SCA+44, @SCA+144 : 
C AS D4 0028 CLRL SCK+180 ; 0557 
04 9 88 RET ; 0519 
00000067 = &F 53 D1 00289 26$:  CMPL  R3, #103 ; 0561 
09 13 002C BEQL : 
0000006C = &F 53 pi 002C CMPL = R3, #108 : 
12 12 002C BNEQ : 
08 A? 05 002CB 27$:  TSTL NUMPRM+12 3 0569 
05 13 00 cE BEQL ; 
64 AS 67 p 02D MOVL § NUMPRM#+4, SCA+220 ; 0572 
4 00204 RET ; 0569 
64 AS 000000006 FF 00 00205 28s: MOVL  @PDT, SCA+220 : 0576 
04 00200 29$: RET ; 0583 
; Routine Size: 734 bytes, Routine Base: SCODES + 0000 
3 457 0584 
; 458 3289 ND ! End of module 
: 459 586 0 ELUDOM 
: PSECT SUMMARY 
3 Name Bytes Attributes 
3 SOWNS 48 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL CON.NOPIC.ALIGN(3) 
3 SCODES 734 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
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Memor 
Compi 


; Run Time: 3 
Elapsed Time: 00:44.1 
Lines/CPU Min: 

Lexemes/CPU-Min: 
Used: 166 pages 
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00:15.8 
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